home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / gags.arc / THEGAG.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1986-02-04  |  2.6 KB  |  58 lines
  1. 10  KEY OFF:CLS
  2. 25  FOR T=1 TO 7
  3. 30  FOR L=123 TO 255:PRINT CHR$(L);:NEXT L
  4. 40  NEXT T
  5. 45  PRINT
  6. 50  PRINT "PLEASE WAIT..       ESTABLISHING LINK";
  7. 70  FOR L=1 TO 35:PRINT ".";:FOR T=1 TO 160:NEXT T:SOUND 10500,0.5:NEXT L
  8. 75  CLS
  9. 80  SOUND 5500,20
  10. 90  PRINT "CONNECT"
  11. 91  FOR TL=1 TO 2000:NEXT TL
  12. 95  PRINT:PRINT
  13. 100  READ A$:
  14. 110  IF A$="@" THEN PRINT CHR$(13);:GOTO 100
  15. 113  IF A$="{" THEN CLS:GOTO 100
  16. 115  IF A$="~" THEN FOR TL=1 TO 1000:NEXT TL:GOTO 100:' TIME LOOP
  17. 117  IF A$="*" THEN FOR L=1 TO 33:PRINT ".";:FOR T=1 TO 160:NEXT T:SOUND 10500,0.5:NEXT L:GOTO 100
  18. 120  IF A$="#" THEN 200
  19. 130  FOR L=1 TO LEN(A$):B$=MID$(A$,L,1):PRINT B$;:SOUND 11000,0.5:FOR X=1 TO 30:NEXT X:NEXT L
  20. 140  FOR T=1 TO 800:NEXT T:GOTO 100
  21. 200  IF FLAG=1 THEN FLAG=0:RETURN
  22. 205   LOCATE 1,32
  23. 210   CD$=INKEY$:IF CD$="" THEN 210
  24. 215   PRINT "-";:CTR=CTR+1:SOUND 10000,0.9
  25. 220   AN$=AN$+CD$
  26. 230   IF CTR<8 THEN 210
  27. 235   WG=WG+1:IF WG=3 THEN 1000
  28. 240   FLAG=1:GOSUB 100:CTR=0:GOTO 205
  29. 1000  CLS:LOCATE 12,30:COLOR 23:PRINT "UNAUTHORIZED USER!!!!":LOCATE 14,27:COLOR 7:PRINT "Line trace is being executed."
  30. 1005  FOR LP=1 TO 8
  31. 1010  FOR SLD=400 TO 700:SOUND SLD,0.01:NEXT SLD
  32. 1015  NEXT LP
  33. 1020  SOUND 32767,0
  34. 2000  CLS:LOCATE 3,30:PRINT "CONGRADULATIONS!!"
  35. 2005  LOCATE 5,10:PRINT "You have been had by THE GAG!  Written by Timothy L. Trimble"
  36. 2010  LOCATE 6,10:PRINT "for distribution among the communication boards of the world."
  37. 2015  LOCATE 8,10:PRINT "Feel free to copy this program as many times as you want and "
  38. 2020  LOCATE 9,10:PRINT "give it away as much as you want.  This is my way of spreading"
  39. 2025  LOCATE 10,10:PRINT "a little humor among the world."
  40. 2030  LOCATE 12,10:PRINT "If you have any comments about this program or would like to"
  41. 2035  LOCATE 13,10:PRINT "inquire about my programming abilities then feel free to "
  42. 2040  LOCATE 14,10:PRINT "send me a letter to:"
  43. 2045  LOCATE 16,10:PRINT "VIDEO SOFTWARE RESOURCES"
  44. 2047  LOCATE 17,10:PRINT "TIMOTHY L. TRIMBLE"
  45. 2050  LOCATE 18,10:PRINT "6034 PCH # 9."
  46. 2055  LOCATE 19,10:PRINT "REDONDO BEACH,CA.  90277"
  47. 2060  A$=INKEY$:IF A$="" THEN 2060
  48. 2065  CLS:SYSTEM
  49. 9000  DATA "Please hold.   Reading CPU pulse pattern for identification.","@","^^^^^^^^^^^^^^","@","Identification complete.  User identified as Contact 34i98vb--32"
  50. 9005  DATA "@","@","Please wait.  Establishing link with Internal Control System.","~","~","@","*","@"
  51. 9010  DATA "~","~","{","Please be AWARE that you are entering the Internal Control System","@","of the Department of Defense of the United States of America."
  52. 9015  DATA "@","@","Before access is granted you must enter your special security code  ","assigned to you by the Security Access Office."
  53. 9020  DATA "@", "PLEASE HOLD.  INITIALIZING MAIN CONTROL CENTER.","*","@","*","*","~","~","{"
  54. 9025  DATA "Please enter your access code :","#"
  55. 9030  DATA "@","WRONG ACCESS CODE!!  PLEASE TRY AGAIN.","~","~","{","Please enter your access code :","#"
  56. 9035  DATA "@","WRONG ACCESS CODE!!  PLEASE TRY AGAIN.","~","~","{","Please enter your access code :","#"
  57. 9040  DATA "@","WRONG ACCESS CODE!!  PLEASE TRY AGAIN.","~","~","{","Please enter your access code :","#"
  58.